home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
pascal
/
spoc88.zip
/
LOOPS.ZIP
/
READKBD.BAS
< prev
Wrap
BASIC Source File
|
1988-06-10
|
274b
|
12 lines
'ReadKBD, a subroutine contained in MC1.INC
SUB ReadKBD(RetChar$)
' This function reads a keystroke from the keyboard
' and returns 1- OR 2-character string.
DO
RetChar$ = INKEY$ ' get the keyboard input
LOOP UNTIL RetChar$<>""
END SUB